Написать программу, позволяющую вводить с клавиатуры символы до тех пор, пока не будет введен символ $. Найти количество цифр среди введённых символов. Нельзя использовать тип массивы и строки.
program r;
var a:char;
s:integer;
begin
s:=0;
repeat
writeln('Введите символ');
readln(a);
case a of
'1','2','3','4','5','6','7','8','9','0': s:=s+1;
end;
until a='$';
writeln('Введено ',s, ' цифр.');
readln;
end.
Тестирование https://www.onlinegdb.com/online_pascal_compiler
Введите символ
3
Введите символ
4
Введите символ
$
Введено 2 цифр.